home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / PMAKER65 / archive.z / AJUSTAR INGLETE DE POLIGONO....SPT < prev    next >
Text File  |  1997-01-13  |  1KB  |  41 lines
  1. -- Adjust Polygon Miter Limit...
  2. -- 1 Oct 96, bb
  3.  
  4. -- Este gui≤n ajusta el lφmite del inglete en un polφgono.  Es muy ·til
  5. -- para polφgonos internos con ßngulos angudos.
  6.  
  7. getselectlist => num, ..., elementType, ...
  8. if not(elementType = 12) // Type 12 is polygon
  9.     return unquote("Estado no vßlido. Seleccione un polφgono.")
  10. endif
  11.  
  12. getpolygonmiterlimit => pmlimit
  13.  
  14. curLimitMessage = "El lφmite del inglete actual es " + str(pmlimit)
  15. newLimitMessage = "Introduzca un nuevo lφmite:"
  16.  
  17. getplatform => platform
  18. if platform = MACINTOSH
  19.     dialogbegin -150,-175,52,-50,"Ajustar inglete de un polφgono"
  20.     static 4,4,185,25,  curLimitMessage
  21.     static 21,25,185,40,  newLimitMessage
  22.     edit 25,50,175,70, ""
  23.     pushbutton 25,80,95,110,"Cancelar"
  24.     pushbutton 105,80,175,110,"OK"
  25. else
  26.     dialogbegin -60,-70,75,-5,"Ajustar el lφmite de inglete de un polφgono"
  27.     static 4,4,120,40,  curLimitMessage
  28.     static 4,20,110,35,  newLimitMessage
  29.     edit 10,31,74,41, ""
  30.     pushbutton 10,45,45,58,"Cancelar"
  31.     pushbutton 49,45,84,58,"OK"
  32.  
  33. endif
  34. dialogend => buttonHit,...,...,newlimit,...
  35.  
  36. if buttonHit="OK"
  37.     polygonmiterlimit unquote(newlimit)
  38. endif
  39.  
  40. return
  41.